home *** CD-ROM | disk | FTP | other *** search
/ D-Rom (UK) / D_ROM / D_ROM (Track 01).bin / drom.dir / 00080.ls < prev    next >
Encoding:
Text File  |  1997-07-24  |  2.3 KB  |  59 lines
  1. on mouseUp
  2.   global gworklist, glistcounter, greflist, gincrement, gcastlib, gmenudrive, kertwang
  3.   repeat with x in [36, 37, 38]
  4.     set the visible of sprite x to 0
  5.   end repeat
  6.   set the visible of sprite 35 to 1
  7.   updateStage()
  8.   if the movieRate of sprite 45 = 1 then
  9.     set the movieRate of sprite 45 to 0
  10.     set the castNum of sprite 28 to the memberNum of member "play"
  11.   end if
  12.   set foremem to getAt(getaProp(getAt(gworklist, glistcounter), #QTdata), 1)
  13.   set forenum to the number of member foremem
  14.   set gincrement to gincrement - 1
  15.   if gincrement < 1 then
  16.     set gincrement to count(greflist)
  17.   end if
  18.   repeat with x = 1 to count(gworklist)
  19.     set checker to value(getaProp(getAt(gworklist, x), #refnum))
  20.     if checker = getAt(greflist, gincrement) then
  21.       set glistcounter to x
  22.       set kertwang to value(getaProp(getAt(gworklist, x), #refnum))
  23.       set tempic to getAt(getaProp(getAt(gworklist, glistcounter), #QTdata), 2)
  24.     end if
  25.   end repeat
  26.   if gmenudrive = 0 then
  27.     repeat with x = forenum down to forenum - 3
  28.       set the castNum of sprite 20 to x
  29.       updateStage()
  30.       set pausefactor to the timer
  31.       repeat while the timer < (pausefactor + 5)
  32.       end repeat
  33.     end repeat
  34.   end if
  35.   set the visible of sprite 45 to 0
  36.   set the castNum of sprite 20 to member tempic of castLib gcastlib
  37.   updateStage()
  38.   set temsnd to getaProp(getAt(getaProp(getAt(gworklist, glistcounter), #tracks), 1), #QTnam)
  39.   if (kertwang = 11) or (kertwang = 18) or (kertwang = 19) or (kertwang = 41) then
  40.     cursor(4)
  41.     updateStage()
  42.     set the castNum of sprite 45 to member temsnd
  43.   else
  44.     set the castNum of sprite 45 to member temsnd
  45.   end if
  46.   set the stageColor to the stageColor
  47.   set the visible of sprite 45 to 1
  48.   updateStage()
  49.   cursor(-1)
  50.   set teminf to getaProp(getAt(getaProp(getAt(gworklist, glistcounter), #tracks), 1), #inftrk)
  51.   if teminf <> EMPTY then
  52.     set the castNum of sprite 12 to member teminf
  53.   else
  54.     put "Artist:" && getaProp(getAt(gworklist, glistcounter), #artnam) & RETURN & "Label:" && getaProp(getAt(gworklist, glistcounter), #recinf) & RETURN & "Track One name:" && getaProp(getAt(getaProp(getAt(gworklist, glistcounter), #tracks), 1), #namtrk) into field "xxfield"
  55.     set the castNum of sprite 12 to member "xxfield"
  56.   end if
  57.   setup_the_fields()
  58. end
  59.